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1 
-SEP-19 TTDRVR.BUGSRCJYCDRIVER.MAR; 1 (1) 
1 -TITLE YCORIVER = Port Driver for DMF Async 
:M1ROOO' SI "IoeNT  "yoeeb6o" 4 
: 4 Segesanenentoseneorennenedoeneetoneneeeenonssereseenenesseneoeneossoeensenes 
7* e 
5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 4 
g :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 2 
88 10 ‘* ALL RIGHTS RESERVED. * 
é & 
6 11 ;* THIS SOFTWARE Js FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIEN * 
0 1 3* ONLY IN ACCORDANCE WITH THE TEKMS OF SUCH LICENSE AND WITH THE ~< 
0 13 ;* INCLUSION OF THe NABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 
000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTH ISE MADE AVAILABLE TO ANY 8 
44 15 ;* PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 8 TRANSFERRED. * 
3 ® 
0900 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT »* 
94 y 38 CORPORATION. * 
: & 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 4 j* * 
0000 5 3" * 
ied 8: FRARAAAAAR ATER AEA TAA RARER AAAHAAAAAAAAAAARAKARAAAAeHeKeeeeeteeeeeTene 
00 - 
0000 8 i+ 
0000 9 : FACILITY: 
000 0 : 
¢000 1 ; VAX/VMS TERMINAL DRIVER 
0000 ¢ i 3 
C000 : ABSTRACT: 
0000 4; 
0000 5 : DMF ASYNC PORT DRIVER 
0000 ® 3 
44 7 : AUTHOR: 
000 8 ; 
0000 9 : RICK SPITZ 
44 40 ; 
4 ¢3 3; Revision history: 
3M1RO001 0000 | : v04-002 MIRO001 Michael I. Rosenblum 09-Nov-1984 
3M1RO001 it “§ 3 Some DMF lookalike board don' A 
7M1ROOC1 0 > Do Autoxon-xoff correctly. Add code to disable the 
;M1RO001 O85 43 feature based on bit 0 of the sysgen parameter 
7M1RO0001 0 a : TTY_DEFPORT. 
:M1R0001 § : 
;WHMO004 a a V04-001 WHMO0004 Bill Matthews 30-0c t-1984 
ets 3 5 : Correct test for DMF32 vs DMZ32. 
0 4 : v03-032 wHM0003 Bill Matthews 24-Jul-1984 
rt 3 Set the device type field in the CRB. 
$8 $ v03-231 LMPO275 Mark Pilant, 12-Jul-1984 21:04 
4 : Initialize the act info in the ORB to be a null descriptor 
48 ; List rather than an empty queue. This avoids the overhead 
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v03-030 EMDNN89 Ellen M, Dusseauit 30-Apr-1984 


v03-029 LMP0221 L 
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of sock tne and unlocking the ACL mutex, only to find out 
that the ACL was empty. 


Adc JEVSM_NNM characteristic to DEVCHAR2 so that these 
de. ices will have the prefix ‘'node$"’. 


. Mark Pilant, 31-Mar-1984 10:23 
Ch ge Ue oSt ounuic to ORBSL_OWNER and UCBS$W_VPROT to 


an 
ORBS 


MIRO360 Michael I. Rosenblum 20-Mar-1984 
Add code to check for DMF honoring XON and XOFF. 
Remove Callback to BURST_OUTPUT when resume is called 
This illiminates unnecessSry interrupts when the silo 
Goes empty and we get a controi-Q. 


wHM0002 Bill Matthews 29-Feb-1984 
Second part of change to control_init to support 
multiple comm devices on one board. 


WHMGO001 Bill Matthews 28-Dec-1983 

Use IDB$B_COMBO_VECTOR and IDB$B_COMBO_CSR_OFFSET to find 
the start of the combo device's CSR and load the soft 
interrupt vector. 


JLV0318 Jake VanNoy 9=DEC-1983 
comment out DPT_STORE for parity to fix build problem. 


MIROO83 michgel I. Rosenblum 02-Aug-1983 
Add Field test DMZ-32 support. Remove local def o 
IOSM_AUTXOF_ENA and IOSM_AUTXOF_b1IS and move them into STARDEF. 


MIROO62 Michael I. Rosenblum 30-Jun-1983 
Change controler and unit init to use newly defined 

macros. Remove code that looked at the logical UCB 

(code moved to the class drivers setup ucb and transition 
routine) Remove into the class driver on resume with nothing 
to resume, 


M1RO060 Riches! I. Rosenblum 11-Jun-1983 
Add code to combat against silo full conditions and spurious 
DMA completeion interupts. 


M1RO05SO Michael i. Rosenblum 11-May-1983 
Remove STOP2 entery point (no longer necessary) 

add code in set_line to allow the use of the auto xon xoff 
feature of the dmf. Fix bug thet would cause setting of the 


XON bit not to restart a write. 

v03-020 RKS0020 RICK SPITZ 14-MAR-1983 
ADD ENHANCEMENTS TO SUPPORT LOGICAL UCB 

v03-019 RKS0019 RICK SPITZ 1-FEB-1983 
DMA CODE HAS BEEN MOVED INTO THE DMF PORT DRIVER. THIS 
CODE HAS BEEN REMOVED FROA THE CLASS LEVEL. ALL OUTPUT 
FROM CLASS TO PORT IS NOW HANDLED USING THE SAME INTERFACE. 


F 13 
ay EAS Wee et Boe CNS TERR UGE SoSRCtGBD ven ast a 


RESUME LOGIC HAS geen Med. TO INSURE aks IS ON DURING 
DMA BURST AND BYTE COUNT TO INSURE NO NEW OUTPUT IS 
STARTED DURING” THAT WINDOW 


v03-018 minooze Michael I. Rosenblum “ee 
Replace old vector table with new vector table 
Remove references to UCBSL DEV DEPEND. and ucBsa rT STATE 
move these references into the class driver jacket routines 


v03-017 nigger? hael I. Rosenblum 04-Jan-1983 
o gourrtess check 4 the Unit nit routine to allow the 
cote nal class drier to take positive action on powerfail. 


V03-016 MIROO16 Michael I. Rosenblum 29-Dec-1982 
Replace time coleuletion code with TIMSET macro call. 
V03-015 MIROO15 Michael I. Rosenblum 22-Dec-1982 


Change code in YCSDISCONNECT to reflect the change 
in functionality. Remove code that referenced 
DMAABO and DMA state bits. 


V03-014 MIROO14 Michael I. Rosenblum 17-Dec-1982 
move code to fi ure out what flow control character 
to send to TTYS 


OCOOVOSOOSOOSSSOOSOOOOOCOOOOSOOSOOOOO 


v03-013 RKSO013 RICK SPITZ 18-OCT-1982 
Bp CORRECT SENSE OF PARITY BIT 
v03-010 RKSO012 RICK SPITZ 16-SEP-1982 


Remove check for powerfail in unit init which prevents 
SETUP_UCB from being called. This is needed to allow 
Onibus switches to connect a line and then switch the 
device on the bus, followed by a psuedo powerfail recovery. 


Check reference count in unit init to determine if 
modem control should be initialized or hungup. This 
is needed to insure that a hangup “Y is posted on 
powerfail on modem Lines. 


OOOCCOOSSOSSoSSo 


Refrain from clearing INT in the port abort logic. 
This prevents output ata roi fowing a flush from being 
spat dur 4 he small time wi 


he DMF wi interrupt on Mie flush complete, at 

untek point INT will be handled. 

v03-009 Kon0gos Kathleen D. Morse 28-Jun-1982 
Added SDEVDEF and $SSDEF. 

v03-008 RKS008 RICK SPITZ 23-MAR-1982 
USE SYSGEN VALUE FOR COMBO INPUT SILO TIMER. 
CHANGE OUTPUT DELAY. 

v03-007 RKS007 RICK SPITZ 13-F EB-1982 
ADD DELAY LOGIC WHEN OUTPUTING TO TRANSMIT SILO 

v03-006 pesogye RICK SPITZ 8-F EB-1982 


a ce ce ce ce ce ce ee me em ce me me ce ee ee em a em ee ce ce a ee ee eB ee ed ee ed od od wd 
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Mire ti > 4 mete 882 ALiEFiSe LFASHNS Biscce YOE=OO ee mansnem” ch 
163 ; FIX CHARACTER TIMER 
4 ; DO UNSIGNED COMPARISON IN SILO OUTPUT. 
1 § : v03-005 RKS0005 RICK SPITZ 11=JAN=1982 
167 ; REPAIR MODEM INT ERRUPT LOGIC 
168 ; ADD INPUT SILO TIMER. 
176 : V03-004 R RICK SPITZ 15=DEC-1981 
171 ; ae MAINTENANCE BIT OFFSETS, ADD EXTERNAL LOOP SUPPORT 
17 3 ENHA ANCE RESUME LOGIC IN DMA MODE TO AVOID WRITING 0 BYTE 
174 ; USE NSYSP ARAM VALUES FOR S4ASS DRIVER LOCATION, PARITY, RSPEED 
129 ; CHANGE TYPE CODE TO DMF- 
173 : V03-003 JLV0104 e Va annoy 27-0c t-1981 
0 178 ; che TTYDEFS = “Sr YyDeS 
000 180 : v03-002 RKS RICK SPITZ 8-0CT-1981 
0000 (181: bse "3uBTRACT TO COMPUTE VECTOR ADDRESS TO BE LOADED” INTO 
9000 188 ; DMF=32 VECTOR REGISTER. 
000 183; 
0000 184: 
0000 185 :-- 
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if ~SBTTL DECLARATIONS 
189 ; 
139 3 EXTERNAL DEFINITIONS: 
198 SACBDEF : DEFINE ACB 
19 SCRBDEF : DEFINE CRB 
194 SDCDEF : DEFINE ADAPTER TYPES 
195 SDDBDEF + DEFINE DDB 
196 SDEVDEF : DEFINE DEVICE TYPES 
19 SDYNDEF ; DEFINE DYNAMIC STRUCTURE TYPES 
198 SIDBDEF : DEFINE IDB OFFSETS 
1 SIODEF ; DEFINE 1/0 FUNCTION CODES 
0 SIRPDEF t DEFINE IRP 
1 SORBDEF : DEFINE OBJECT'S RIGHTS BLOCK OFFSETS 
: SSSDEF : DEFINE SYSTEM STATUS CODES 
0 STTYDEF : DEFINE TERMINAL DRIVER SYMBOLS 
0 4 STIDEE : DEFINE TERMINAL TYPES 
99 5 STT2DEF > DEFINE EXTENDED CHARACTERISTICS 
0 : STQEDEF : DEFINE TIMER QUEUE OFFSETS 
0 SUCBDEF > DEFINE UCB 
00 8 SUBADEF t DEFINE UBA 
000 SVECDEF : DEFINE VECTOR FOR CRB 
0000 210 STTYMACS : DEFINE TERMINAL DRIVER MACKOS 
8000 11 .show m 
900 12 STTYDEFS : DEFINE TERMINAL DRIVER SYMBOLS 
000 SDEFINI TTYDEFS, 
0000 ~SAVE _LOCAL_BLOCK 
0000 “NOCROSS 
9000 .IIF DIF <> <GLOBAL>,.ENABLE SUPPRESSION 
00 -PSECT $ABS$,ABS 
000 $GBLIN 
00 IF DN <LOCAL> <GLOBAL> 
0 “MACRO $DEF | SYM,ALLOC,SIZ 
000 elif NB, SYM:: 
000 *1IF = NB ALLOC, ALLOC $12 
0 [ENDM = SDEF 
0 “MACRO $EQU  SYM,VAL 
00 SYM==VAL 
00 -ENDM © $EQU 
0 zMACRO SVIELO1 MOD, SEP,SYM,S1Z,MSK 
eee™ 
wIIF so NB, SIZ, SI2...=$12 
c1F NB, SYM 
MOD'SEP'V 'Sym==BIT... 
-LIF = NB,S1Z, MOD*SEP'S_"SyM==S12 
HE NB.MSK, MOD'SEP'M”*SYM==<<<1aSIZ...>-1>aBIT...> 
B11. -=B11.. #812... 
-ENDA viELD 
T1IF IF <LOCAL> <LOCAL>,.ERROR ;ARG MUST BE "GLOBAL", ““LOCAL'’,OR NULL 
.VACRO $DEF | SYM,ALLOC,SI2 
*1IF = NB ALLOC, ALLOC S12 
66 *ENDM 
“MACRO $EQU SYM, VAL 
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SYM=VAL 

~ENDM $EQU 

ggcro sPvseLot MOD,SEP,SYM,S1Z,MSK 

. = 

LIF NB,S1Z, $1Z2...2S12Z 

oF | NB, SYM 

MOD'SEP'V_"SYM=BIT... 

elif NB,SIZ, MOD'SEP'S_*SYM=SIZ 

dane NB,MSK, MOD'SEP'M_'SYM=<<<1@S1Z...>-1>@BIT...> 

B11. +2811. . #812. 

~ENDM VIELD1 

eENDC 

20 

SUCBDEF 

SCRBDEF 

SIDBDEF 

STTYUCBDEF 


SDEFINI TTYUCB 
SAVE gg Oat BLock 


»NOC 
-lIF DIF <> <GLOBAL>,.ENABLE SUPPRESSION 
»PSECT SABSS$,ABS 


$GBLINI 

IF DN <LOCAL> <GLOBAL> 

“MACRO $DEF | SYM,ALLOC,SIZ 

LIF NB,SYM, SYM:: 

“IIF NB ALLOC, ALLOC $12 
“ENDM = SDEF 

“MACRO $EQU SYM, VAL 

SYM== 

-ENDM 


$EQU 
"MACRO SviELo1 MOD, SEP, SYM, S1Z.MSK 
eoe™ 
UF NB. SIZ, $12...2S12 
SEP'V_ *Sym==BIT 


o 
fF =6NB,SIZ, mod! 
F NB.MSK, MOD" 


eieiot 
IF <LOCAL> <LOCAL>,.ERROR ;ARG MUST BE ‘'GLOBAL'’,"*LOCAL’',OR NULL 
DEF S¥M.ALLOC.SIZ 

: NB, ALLOC, ALLOC SIZ 
RO SEQU SYM,VAL 
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$EQuU TTYSM_ST_SKIPCRLF 524288 
00080000 TTYSM~ST"SKIPCRLF=524288 
$EQU TTYSM_ST_EDITING 1048576 
00100000 TTYSM_ST_EDITING=1048576 
0 S$EQu TTYSM_ST_TABEXPAND 97152 
00200000 TTY$M_ST_TABEXPA AND=2097185 
SEQU  =TTYSM_ST_QUOTING 4194304 
00400000 TTYSM_ST_QUOTING=4194304 
000 $EQu TTYSM_ST_OVERSTRIKE 8388608 
00800000 900 TTYSM_ST_ OVERS TRIKE=8388608 
$09 SEQU TTYSM_ST_TERMNORM 16777216 
01000000 44 TTYSM_ST_TERMNORM=16777216 
000 SEQU TTYSM_ST_ECHAES ; 236435 
02000000 444 TTYSM_ST_ECHAES=335544 
0000 SEQU TTYSM_ST_PRE 7108864 
04000000 44 TTYSM_ST_PRE=67108864 
000 SEQU TIYSH_ST_NINTRULT 134217728 
08000000 444 TTYSM_ST_NINTMU mutT t=1 3621775 
000 $EQuU TTYSM_ST_RECONNECT 68435456 
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UCBSB_RTT_OBJ 216 
UCB$B-RTT~0BJ=21 
UCBSW_RTT_SYSTYPE 217 
UCBSW-RTT~SYSTYPE=217 
UCBSB_RTT_FILLBYTE 219 
UCBSB-RTT~F ILLBYTE=219 
UCBSU_CT FLAGS 220 
UCBSW"CT"FLAGS=2 
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UCBSL_CT_LEGALMSG 264 
UCBSL_CT_LEGALMSG=264 
UCB$B_CT_VERSION 268 
UCBSB_CT_VERSION=268 
UCBSB_CT_ECO 269 
UCBSB_CT_ECO=269 
UCBSW_CT_FILLWORD 270 
UCBSW_CT_FILLWORD=270 
UCBSS_CT_DEBUG_FILL 40 
UCBSS_CT_DEBUG_FILL=40 
UCBST_CT_DEBUG_FILL 272 
UCBST_CT_DEBUG_FILL=272 
SDEFEND TTYUCB, ,DEF 
»MACRO S$TTYUCBDEF A 
-ENDM STTYUCBDEF 
elif DIF <> <GLOBAL>,.DISABLE SUPPRESSION 
CROSS 
RESTORE 
STTYVECDEF 
SDEFINI TTYVEC, 
~SAVE _LOCAL_BLOCK 
OCROSS 
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«MACRO SDEF SYAALLOC S12 


elIF NB,SYM ee 

S1IF NB ALLOC, ALLOC S12 

“ENDM = SDEF 

“MACRO $EQU = SYM, VAL 

SYM==VA 

.ENOM © SEQU 

gRACRO SVIELD1 MOD,SEP,SYM,S1Z,MSK 

-IIF” NB,SIZ, $12Z...=S12 

“IF NB SYM 

MOD'SEP'V_ 'Sym==BIT... 

-LIF = NB.S1Z, MOD*SEP'S_"SyM==$12 

ahha NB.MSK, MOD*SEP'M™'SYM==<<<laSIZ...>-1>aBIT...> 
BIT...=BIT...¢#SI1Z.. 

-ENDR $viELDI 

-LIF DIF <LOCAL> <LOCAL>,.ERROR ;ARG MUST BE "GLOBAL'’,"LOCAL''.OR NULL 
“MACRO $DEF | SYM,ALLOC.SI2Z 

“1IF —sNB, SYM : 

“ITF 0s NBL ALLOC, ALLOC S12 
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.ENDM 


SDEF 
sMACRO $EQU SYM, VAL 
SYM=VAL 
~-ENDM $EQU 
- MACRO SVIELDI MOD,SEP,SYM,SI1Z,MSK 


1Z7...21 
~IIF NB,SIZ, SIZ...=S12 


: DISEP'S *SYM=S1Z 

HF NB.MSK, MOD'SEP'M™'SYM=<<<1aSIZ...>-1>a@BIT...> 
BIT...=BIT...#S12... 

.ENDM. = $VIELD1 

SENDC 
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CLASSS_CLASS_DEF=40 


CLASS_GETKXT ~- 0 
CLASS_GETNXT=0 


CLASS_PUTNXT & 
CLASS_PUTNXT=4 


CLASS_SETUP_UCB 8 
CLASS-SETUP_UCB=8 


CLASS_DS_TRAN 12 
CLASS_DS_TRAN=12 


CLASS_DOT 16 
CLASS_DDT=16 


CLASS_READERROR 20 
CLASS~READERROR=20 


CLASS_DISCONNECT 24 


40 


CLASS_DISCONNECT=24 
CLASS_FORK 2e 
CLASS_FOR Ke 28 
CLASS_POWERFAIL L 3s 
CLASS_POWERFAIL= 
CLASS_TABLE 36 
CLASS" TABLES= 36 
PORT_LENGTH 56 
PORT-LENGTH=56 
PORTS_PORT_DEF 56 
PORTS PORT "DEF =56 
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SEQU PORT_STARTIO 
00000000 PORT START 10=0 . 
00 SEQU §PORT_DISCONNECT 4 
00000004 i PORT-DISCONNECT=4 
0 SEQU  PORT_SET_LINE 8 
00000008 B PORT SET -LINE=8 
00 SEQU PORT_DS_SET 1 
0000000c 0000 PORT"DS~SET=12 . 
$00 $EQU = PORT_KON 16 
00000010 909 PORT-XON=16 
0000 SEQU = PORT_XOFF 20 
00000014 9000 PORT-XOFF=20 
0000 $EQU = PORT_STOP 24 
00000018 9909 PORT~STOP=24 
0000 $EQU = PORT_STOP2 28 
0000001¢ 900 PORT-STOP2=28 
0000 SEQu PORT_ABORT 32 
00000020 909 PORT"ABORT=32 
0000 SEQU = PORT_RESUME 36 
00000024 9900 PORT —RESUME=36 
0000 SEQU PORT_SET_MODEM 40 
00000028 9000 PORT ~SET-MODEM=40 
0000 SEQU PORT__DMA 44 
0000002c 9000 PORT~~DMA=44 
0000 SEQU = PORT_MAINT 48 
00000030 9900 PORT-MAINT=48 
0000 SEQU PORT_FORKRET 52 
00000034 9000 PORT -FORKRET=52 
00 SDEFEND TTYVEC DEF 
00 MACRO ve COEF FA 
ENDM sity CDEF 
000 -IIF —soODIF ¥ <GLOBAL>, .DISABLE SUPPRESSION 
000 “CROSS 
006 RESTORE 
00 
000 STTYSYMDEF 
0 SDEFINI TTYSYM 
.SAVE _LOCAL_BLOCK 
3 “NOCROSS 
.IIF DIF <> <GLOBAL>,. ENABLE SUPPRESSION 
: 0 PSECT $ABS$,ABS 
00 $GBLINI 
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F DIF <LOCAL> <LOCAL>,.ERROR ;ARG MUST BE ''GLOBAL"’,""LOCAL’.OR NULL 
CRO $DEF | SYM,ALLOC,S!2Z 

fF NB,SYM, SYM: 

F NB ALLOC. 


ALLOC SIZ 
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ane DN <LOCAL> <GLOBAL> 
-MACRO SDEF SYM,ALLOC,SIZ 
LIF NB,SYM, SYM:: 
TLIF ALLOC, ALLOC SIZ 
»ENDM F 
-MACRO S$EQU SYM, VAL 
SYM==VAL 
eENDM $EQU 
-MACRO $VIELD1 MOD,SEP,SYM,SIZ,MSK 
0 $1Z...21 
LIF NB,SIZ, $1Z...=S12Z 
“IF “SYM 
MOD'SEP'V_"SYM==BIT... 
0 LIF NB,SIZ, MOD'SEP S_'SYM==SIZ 
8 bin NB,MSK, MOD'SEP'M_*SYM==<<<18S1Z...>-1>@BIT...> 
0 IT 
0 EN 
0 IF 
0 II 
0 MA 
0 ell 
0 my 
0 ~EN 


$D 
$EQU 
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0 “MACRO SYM, VAL 
0 SYM=VAL 
0 ENDM  $EQU 
0 MACRO SVIELD1 MOD,SEP,SYM.SIZ.MSK 
eoo= 
0 ; NB,SIZ, SIZ...=S12Z 
0 LIF NB 
000 MOD'SEP'V ‘SyM=BIT... 
000 -IIF —sNB,SIZ, MOD'SEP'S_'SYM=S1Z 
000 SIIF_-s-NB.MSK, MOD'SEP*M~'SYM=<<<1aSIZ...>-1>@BIT...> 
000 “ENDC 
000 BIT... 2BIT...*SIZ... 
00 .ENDM = $VIELD1 
000 NDC 
000 
000 0 
000 
00 TYSM_FD_UNSOL 1 
000 TYSM~FD"UNSOL=1 
099 TYSM_FD_GETAHD 
000 TYSM~FD"GETAHD= 
0 TYSM_FD_DISCONNECT 4 
TYSM~FD-DISCONNECT=4 
09 TYSM_FD_PORTFORK 8 
00 TYSM~FD"PORTFORK=8 
09 TYSM_FD_UNLINK 16 
00 TYSM~FD"UNLINK=16 
00 TTYSM_FD_LINK 32 
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0000000a TTYSC_LF=10 
SEQU—s«~TTY$C_vT " 
00000008 Hysecvq=11 
SEQU—sTTYSC_FF , 
0000000¢ 3 TTYSCTFF=12 ’ 
SEQU —sTTYS$C_CR 13 
00000000 09 U TYygereRer3 
$EQU  s«~TTYSC_CTRLN ‘14 
0000000€ 3 TTYSCCETRENE14 
000 SEQU —~TTYSC_CTRLO ‘15 
000000F 9090 TTYSCZCTRLO=15 
0000 SEQU -TTYSC_CTRLP 16 
90000010 9000 TTYSC“CTRLP=16 
0990 SEQU «~TTYSC_CTRLQ. 17 
00000011 9000 TTYSC“CTRLO=%7 
0000 SEQU «TT ’SC_CTRLR ‘18 
0000012 9000 Ti SCTCTRLR=18 
0000 SEQU -TTYSC_CTRLS 19 
00000013 9000 TTYSCUCTRLS=19 
0000 SEQU «~TTYSC_CTRLT _—20 
00000014 9000 TTYSC~CTRLT=20 
0000 SEQU -«~TTYSC_CTRLU 21 
0000015 9090 TTYSC“CTRLU=21 
0000 SEQU -~TTYSC_CTRLV __22 
00000016 9090 TTYSC“CTRLV=22 
a0. SEQU -~TTYSC_CTRLW 23 
00000017 9008 TTYSCCTRLW=23 
00 SEQU -~TTYSC_CTRLX 24 
00000018 : TTYSC7CTRLX=24 
SEQU —«TTYSC_CTRLY __ 25 
00000019 TTYSCTCTRLY=25 
° SEQU -TTYSC_CTRLZ —.26 
0000001A TTYSCTCTRLZ=26 
SEQU -TTYSC_ESCAPE _ 27 
00000018 TTYSCESCAPE=27 
SEQU —-TTY$C_XON 17 
00000011 TTYSC7XON=17 
SEQU —-TTYSC_XOFF 19 
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TTYSC_XOFF=19 

$EQu TTYSC_BLANK 32 
TTYSC_BLANK=32 

SEQU TTYSC_DOLLAR 36 
TTY$C-DOLLAR=36 

$EQU TTYSC_PLUS 43 
TTYSC_PLUS=43 

$EQU TTYSC_ZERO 48 
TTYSC_ZERO=48 

$EQU TTY$C_ONE 49 
TTY$C_ONE=49 

$SEQU TTYSC_SCRIPT 96 
TTYSC_SCRIPT=96 

$EQu TTYSC_LOWA 97 
TTYS$C~LOWA=97 

$EQU TTYSC_LOWZ 123 
TTY$C_LOWZ=123 

$EQU TTYSC_LOWESC1 125 
TTY$C_LOWESC1=125 

SEQU TTYSC_LOWESC 126 
TTYSC_LOWESC2=126 

$EQU TTY$C_DELETE 127 
TTYS$SC_DELETE=127 

$EQU =: TTYSC_NL 128 
TTYSC“NL=128 

$EQU TTY$C_CSI 155 
TTY$C_CS1=155 

$EQuU TTYSC_MAXPAGLEN 2528 
TTY$C_ _MAXPAGLEN=255 

SEQU TTYSC_MAXPAGWID 511 
TTY$C~ _MAXPAGWID=511 

SEQU TTYSC_HIGHIPL 22 
TTY$C~ “HIGHIPL=22 

SEQU TTYSK_ER_NORMAL 
TTYSK~ “ER_ NORMAL = 

$EQU TTYS$K_ER_ CLR ECHO 
TTYSK-ER-CLRECHO=1 

$EQuU TTYSK_ER_ECHLINE 
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00000080 TTYSM_CH_CTRL2=128 
$EQU  TTYS$S_CHAR_CHAR 1 
00000001 TTYSs~ eA ROCHARE| 
SEQU TTYSS_CHFILL 3 
00000003 TTYSS7CHCF ILL 3 
0 $EQU  TTYSV_CHFILL 0 
00000000 0 TYSVTCHTF ICL =O 
SEQU  TTYS$V_CH_LOWER 3 
00000003 $8 TTY$V_CH_LOWER=3 
80 $EQU —-« TTYSV_CH_SPEC 
00000004 900 TTYSV"CH"SPEC=4 
900 SEQU =: TTYSV_CH_CTRL 
00000005 9000 TTYSV"CH"CTRL=5 
9000 SEQU TTYSV_CH_CTRL3 6 
00000006 9000 TTYS$V=CH-CTRL3=6 
$009 SEQU  TTYSV_CH_CTRL2 7 
00000007 9000 TTYSV~CH7CTRL2=7 
0000 SDEFEND TTYSYM, ,DEF 
0000 .MACRO S$TTYSYMDEF A 
0000 "ENDM = STTYSYMDEF 
0000 IF DIF <> <GLOBAL>, .DISABLE SUPPRESSION 
TRESTORE 
$TT YREDEF | 
SDEFINI T 


YRB, 
- SAVE LOCAL -BLOCK 
NOCROS 


~IIF DIF <> eee -ENABLE SUPPRESSION 
-PSECT $ABSS,A 


td 
‘W 
W 
W 
WW 
‘a 
-4 


$GBLIN 

IF IDN <LOCAL> <GLOBAL> 
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uCcB, a neta oLo=s si crtn tseeeee 


L 
UCB, Met i 1 T= Wat 
UCB.UCBSL-TT-RTIMO 
ORB, ORBS$B abtass. B 
2ORBSM PROT 


1c 


0 
D 


6> 


SOGW 
ORB, ess ye ORer rau, TIYS64 PROT ; Default al!ocation gprotect ten 
ORB, ORBSL OWNER, al , TTYSGC Pact ies Default owner Ul 


DDB, * DDBSL “DDT.D Dy ESDDT 


C :} 
$M_NOUNCOAD, = : 
A; ; A 


; DRIVE 
; PORT DRIVER VECTOR TABLE 


“TT. TONKNOWN ; TYPE 
W Ht DESIZE au. TTV$cu DEFBUF ; BUFFER SIZE 
AR. aL. TTVSGL DEF CHAR ; DEFAULT CHARACTERS 


TTDRVR. BUGSRC YCDRIVER.MAR; 1 (1) 


STAR 
SROLOGUE TABLE 
d gt ieet to INIT’s vectors 


UNLOAD ALLOWED 
PTER TYPE 


Number of units to create 
NAME OF 


ER 
ER 
an 
Z 


3s << 


FORK IPL 
CHARACTERISTICS 


"NODE $"" 


DEFCHAR2; DEFAULT CHARACTERS 
FSPEED; U PEED 


> DE 
GB"PARITY : DEFAULT PARITY 
: BUFFER SIZ 


3 Ss 
Y$GB_RSPEED ; DEFAULT RSPEED 
; DEVICE IPL 


: Zero write queue, 
3 gore write queue. : 
; Zero rose, ' med out disp. 
ae & block flags 
rotection word 


R 

TT NTERRUPT 

AL ; CONTROLLER INIT 
LINE; UNIT INIT 
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-— So 
-_— > 
o- 
2c 
“ne 


vou 008" Dect 


>> 
Dee 
Bd 


DDTAB oun YC,- ; DUMMY DMF PORT DRIVER DISPATCH TABLE 
FUNCTB 


0000 .PSECT $$8115_DRIVER, LONG 


OOoooooocoo 


SOOCoooooooooo 


IN\WWIWIWAI AINA NOOOO 


CoCo COCO COCO COUCOCIDO OOO 
WOOO OOOO COCOCUCDODCO NII 


0 
4; 
5 : THE ASSOCIATED CLASS DRIVER USES THIS TABLE TO COMMAND THE PORT DRIVER. 
$ ; THE ADDRESS OF THIS TABLE IS CONTAINED IN THE TERMINAL UCB EXTENSION AREA. 
; THE OFFSET DEFINITONS ARE DEFINED BY TTYDEFS. 
§ YCSL_SIL_ERROR: 
00000000 0038 0 “LONG 
003¢ 1 YCSL_ERROR: 
00000000 003¢ : .LONG 0 
0040 YCSL_DMAXMT_ERROR: 
00000000 9040 4 .LO 0 
0044 295 PORT_VECTOR: 
0044 96 
044 97 ; 
0044 298 : DMF SPECIFIC DISPATCH TABLE 
0044 99 ; 
0044 300 SVECINI YC, YCSNULL 
007¢ =. 301 $VEC  STARTIO, YCSSTARTIO : START NEW OUTPUT 
0048 03 SVEC  SET_LINE, YCSSET_LINE : SET NEW SPEED/PARITY 
0050 30 $SVEC  DS_SET, ¥CSDS_SET : SET OUTPUT MODEM SIGNALS 
0054 304 SVEC _ XON, YC$XON : SEND XON SEQUEN 
0058 305 SVEC —- XOFF, YCSXOFF : SEND XOFF SEQUENCE 
005¢ 306 $VEC STOP. YC$STOP : STOP OUTPUT 
0060 07 $VEC ABORT, YCSABORT : ABORT OUTPUT IN PROGRESS 
006 08 SVEC RESUME, YCSRESUME : RESUME STOPPED OUTPUT 
d06¢ 09 SVEC MAINT, YCSMAINT : INVOKE MAINTENANCE FUNCTION 
0 10 SVEC —_ FORKRET, YCSFORK : PORT FORK CALLBACK 
007c = 311 SVECEND 
0080 iF 
008 1 
0080 314; 
0080 315 YCSNULL: : NULL PORT ROUTINE 
05 0080 316 RSB 
0081 317 


—— 


eens et 
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/ 04- 44 
TTDRVR.BUGSRCIYCDRIVER.MAR; (1) 


pore 
nm 
—> 
4 


oc wo 


cc ce ce em ee ce ee a ee ee ee ee ee ee ee ee ee ce cee ee ce ee ee ce cee ee eee ee ee cee ee ee ee ee ee eed ee eed eed oe 


se 


: 1 .SBTTL REGISTER DEFINITIONS 

a8 : CSR_BIT DEFINITIONS ( CSR ) ( READ/WRITE ) 

0 ; (NOTE: THIS REGISTER MUST ONLY BE READ IN RESPONSE TO A TRANSMIT INTERRUPT. 
99 ; TO LOAD AN INDIRECT REGISTER, ONLY WRITE OPERATIONS MAY BE USED) 
008 SVIELD DMFCSR.0, <= 

08 <IADDR,5.M>,- ; INDERECT REGISTER ADDRESS 
008 <CLEAR,1,M>,- ; MASTER RESET 

008 <RCVINT,1,M>,- : RECEIVER INTERRUPT ENABLE 
008 <,1,>, : DON'T USE THIS IT 

008 <LINE,3,M>,- + LINE NUMBAE (0 = 7) 

008 ; <OMAERR,1,M>,~ ; DMA TRANSMIT ERROR 

008 3 <SNOINT,1,M>,- 9; TRANSMIT INTERRUPT ENABLE 
008 3 <SNDRDY.1.M>= : TRANSMITTER READY 
oe 

008 ; ; RECEIVER BUFFER ( CSR+4 ) ( READ ONLY ) 

008 4 SVIELD DMFRCV,0,<- 

008 4 <BUF ,8,M>,- : RECEIVER DATA 

008 4 <LINE,3,M>,- = LINE NUMBER (0 - 7) 

0081 34 <DS_CHG.1,M>,- : DATA SET CHANGE INTERRUPT 
008 4 <PARERR.1.M>.= : PARITY ERROR 

008 4 <FRAMER,1.M>.- : FRAME ERROR 

008 4 <OVERRUN,1,M>,- : OVERRUN ERROR 

008 4 <VALID,1,M>= : DATA VALID 

oe 


; LINE PARAMETER REGISTER ( CSR+2 ) ( WRITE ONLY ) 


SVIELD DOMFLPR,0,<- 


<LINE,3,M>,-  ; LINE NUMBER (0-7) 

<SIZE,2,M>,- | ; CHARACTER SIZE 

<PARITY.1,M>,- : PARITY ENABLE 

<ODD,1,M>.- : ODD PARITY 

<STOP,1,M>,- |: NUMBER STOP 

<RSPEED.4,M>,- : RECEIVER LINE SPEED 

<TSPEED, 4 ,M>,- : TRANSMITTER LINE SPEED (BOTH RVC/TX FOR LINES 2-7) 


> LINE CONTROL INDIRECT REGISTER (INDIRECT REGISTFR #2) 


MEN MS OD NAN EWN OS ODO NAMUE WN OS OD NAU EWN OC ODNAUEWN 0 OONOUSWN—O” 
bal 


SOOoQoQoqooQooooosoooocoooooooooo 
SN NNSA AD PAP AAAAOAUIVMIVIUIUIVIUIVG 


AIWAANIA AAAI AIA 4. AANA WIAA AIA ANWII 


SVIELD DMFLCT,0,<- 
<XMIT,1,M>,-  ; TRANSMIT ENABLE 
<AUTOX,1,M>,- : AUTO XON/OFF 
<RCV,1,M>,- 3; RECEIVER ENABLE 
<BREAK.1,M>,- : SEND BREAK 
<FLUSH,1,M>,- : FLUSH OUTPUT SILO/ABORT TRANSMIT 
<Ds ENABLE -{ .M>,~ ; ENABLE MODEM TRANSITION INTERRUPTS 
<AAIN, > 3 


“> 
m 
«Oo 
ma 
oO 
zo 
wn 
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- cmt el ; PREMPT CURRENT OUTPUT 


; MACRO USED TO ACCESS INDIRECT REGISTERS 


FW" OOONOUE WO OONIO —-- 


OOOO ODDO COCOOOOO NNN 


Oo 
w 


SOOOoOQoQoQooQoQoQooooooooqooooocooo -i- 


.MACRO GETIND OFF ET, RX 
MOVL UCBSL_CRB(R5) ,RO : GET CRB ADDRESS 
MOVL. acrRBSC nHTDeVECSL IDB(RO) GET CSR ADDRESS 

BISW3 AcC*RGDADD*<OFFSET#B>>,UCGSU_ UNIT(RS), pe Sever ONDIRECT FIELD 
Ae 6(RO) RX : GET CONTENTS OF INDIRECT F 
“ENDM GETIND 


OUTPUT DELAY MACRO 
TO RELEASE THE UNIBUS 


~MACRO aot 
- REPEAT 


N 
-ENDR 
~ENDM 
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VOunO0S CONTROLLER INITIALIZATION” Bogner 1582 ALi Fb:8) YANeums Bacco. YCDRIVER.MAR:1 >, (1) 
0 4 : .SBTTL CONTROLLER INITIALIZATION 
081 404 
1 405 
0081 4 § p++ 
407 3 YCSINITIAL = INITIALIZE INTERFACE 
6 409 : FUNCTIONAL DESCRIPTION: 
00 411 ; THIS ROUTINE IS ENTERED AT SYSTEM STARTUP AND POWER RECOVERY. 
0081 413 : INPUTS: 
0081 414; 
0081 415: R4 = ADDRESS UF THE UNIT CSR 
0081 416 : R5 = IDB OF UNIT 
0081 417: RB = ADDRESS OF THE UNIT CRB 
0081 418: 
0081 419 : OUTPUTS: 
0081 420: 
0081 421; R2 is destroyed. 
0081 43¢ ; 
0081 423 : IMPLICIT INPUTS: 
0081 424: 
0081 425 : IPL = IPL$_POWER 
0081 426: 
0081 427 :-- 
0081 428 YCSINITIAL:: ; INITIALIZE DMF UNIT 
0081 499 ; 
bony $3 3; SET UP CONTROLLER 
0081 43¢ ses CLASS_CTRL_INIT YCSDPT,PORT_VECTOR; RELOCATE THE NECESSARY TABLES 
0B AB 95 OOAD 434 ° = = =-TSTB —s CRBSB_TT_TYPE(R8) : CONTROLLER TYPE INITIALIZED? 
15 12 0080 435 BNEQ : Q YES 
 WHMO004 0B AS 45 BF 90 0082 v1 MOVB $#DT$_DMZ32,CRB$B_TT_TYPE(R8) : ASSUME DM232 
+ WHMOO04 10 a5 10 91 00B @ CMPB =: #16, IDB$B_COMBO_VECTOR_OFFSET(RSS; DMF32 HAS A VECTOR OFFSET OF 16 
> WHMOO04 OA 12 00BB . BNEQ UF , MUST BE A 
 WHMOOO4 OF AS 60C «691 «(00RD OS CMPB =: #12, IDBSB_COMBO_CSR_OFFSET(RS) : DMF32 HAS A CSR OFFSET OF 12 
* WHMOO04 06 12 00C1 °5 BNEQ  30$ : IFN ST BE A DMz32 
| WHMO004 0B AS «(OA «(90 00C3 «id aie MOVB $#O0T$_OMF32,CRB$B_TT_TYPE(R8) > SET CONTROLLER TYPE DMF 32 
50 OF AS 9 90¢7 441 "  CVTBL == IDBSB_COMBO_CSR_OFFSET(R5),RO ; GET THE OFFSET TO THE MAIN CSR 
10 aS) 883-—s«O0CB 44g SUBB3 1DB$B~COMBO VECTOR OFFSET(RS),- : LOAD THE SOFT VECTOR 
6440 0B AS OCE 44 IDBSB-VECTOR(RS) , (R4) CROJ : 
64 20 B0 OD 44d MOVW #DMFCSRSM_CLEAR, (R4) ; CONTROLLER RESET 
ODS 446; 
3 sty : WAIT TILL CONTROLLER INITIALIZATION IS COMPLETE 
O05 449 . TIMEWAIT #100, #DMF CSRSM_CLEAR, (R4),W, .FALSE. 
(64 4060 8F BO OOFC 451 MOVW &#<<DMFCSRSM_RCVINT>!=  ; ENABLE. RECEIVER INTERRUPTS 
101 4 : <DMFCSRS$M_SADINT>>,(R4) : ENABLE TRANSMITTER INTERRUPTS 
09 50 €9 1 4 ; BLBC = RO, YCSCTRC_ERROR 
106 455 
104 456 1008: 


Port Driver for DMF Async 
CONTROLLER INITIALIZATION 


457 MOVB 
45 

45 

460 

461 RSB 
46 


183 YCSCTRL_ERROR: 
464 RSB 
465 
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G*TTYSGB_SILOTIME,4(R4) ; INIT INPUT SILO TIMEOUT VALUE 


06 AS 25 80 


MC/W = #<<DMFLCTSM_XMIT>!- ENABLE TRANSMIT 
<DMFLCTSM_RTV>!- : ENABLE RiCEIVE 
<DMFLCTSM_DS_ENABLE>>,6(R4) ; AND MODEM INTERRUPTS 


> INIT RECEIVER MODEM STATUS FOR DMF 


4040 8F Ad 
54 AS 


7 AS 90 
0124 C5 


BISW3 © #*X4040,UCBSW_UNIT(RS), (R4) ; SELECT RECV MODEM INDIRECT REG 
MOVB 7(R4),UCBSB_TT_DS_RCV(RS) ; UPDATE RECEIVER MODEM STATUS 


64 


“ 
— 
oa 
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Mirai UNIT INITIALIZATION 4 ~3Ep=198e Oast7i3e LTTONVS.BOssecIScDSTVER.maRsn?%” 95 
JOE 467 .SBTTL UNIT INITIALIZATION 
10E i83 : YCSINITLINE = UNIT INITIALIZATION 
O10E 42) : FUNCTIONAL DESCRIPTION: 
O10 cfs : THIS ROUTINE PERFORMS A SIMPLE UNIT INITIALIZATION. 
10E 475 : INPUTS: 
10€ 476 : 
O10E 477: RS = UCB ADDRESS 
O19 478 : 
10E 479 : OUTPUTS: 
3443 480 ; 
O10E 481; R4,RS ARE PRESERVED. 
Beak 
O10E 484 YCSINITLINE:: 
50 FF32 CF. DE 0108 485 MOVAL YC$VEC,RO : GET THE DISPATCH TABLE ADDRESS 
011 486 CLASS_UNIT_INIT 
64 A5 10 As O15¢ 487 BISW ~ #UCBSM_ONLINE,UCB$W_STS(R5); SET ONLINE 
01 54 AS 78 0160 489 10S: ASHL  UCBSW_UNIT(R5),#1,R3 ; BUILD UNIT'S BIT MASK 
0106 cS) 53~—«*#B!OD 0165 490 MOVW R3,UCBSW_TT_UNITBIT(RS) ; SAVE IT 
24 AB 016A 49¢ BISW #TTYSM_°C_DMAAVL!TTYSM_PC_XOFAVL,-; SHOW DMA FEATURE AVAILABLE FOR U 
0122 ¢5 016C 49 UCBS$W_TT PRTCTL(RS) :7IN PorT L 
;M1R0001 68 enconnce tt E1 gigr “a BBC #0,G*TTYSGL_DEFPORT,15$ ; DO WE REALY WANT AUTOXON? 
pt asd 0122 CS) «620 =A giee 3 BICW 8 «6#TTYSM_PC_XOFAVL,UCBSW_TT_PRTCTL(RS); NO THEN TURN IT OFF 
[M1ROOO1 51 0114 ¢5 pO 017¢ °4.15$: MOVL -UCBSL_TT_CLASS(R5).R1 =; ADDRESS CLASS VECTOR TABLE 
-2 08 B1 «16 181 496 JSB @cLASS_SETUP_UCB(RI) ; INIT UCB FIELDS 
0186 498 ;SET MODE CODE NEEDS TO TOGGLE THESE BITS 
00000778'EF 16 0184 200 JSB YCSSET_LINE ; INIT SPEED/PARITY 
biea 308 ; 
018A 204 : ENABLE LINE RECEIVER , TRANSMITTER AND MODEM INTERRUPTS 
18A ; 
4048 8F Ad EN 288 BISW3 #*X4048,UCBSW_UNIT(RS), (R4) : SELECT LCT 
Sa S320 SIR sg 
0195 209 
b198 814 
b198 1 
gigs He 
0198 15 
199 
o19¢ 
19F 
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VEDRANER t Driver for D 
v04=00 INITIALIZATION TTDRVR.BUGSRCJYCDRIVER.MAR; 1) 
V3 HE oss 
1A 18 "  MOVZBL #MODEMSC INIT R1 ; ASSUME INIT MODEM PROTOCOL 
1A 0 MOVL UCBSL_TT“CLASS(RS),RO : ADDRESS CLASS VECTOR TABLE 
1s 308 JSB @CLASS_DS_TRAN(RO) 3 INVOKE TO INIT MODEM PROTOCOL | 
1A { ae we #UCBSV_POWER yCB$w_s1S(R5) 40$; DID WE DETECT A POWER FAIL 
182 4 MOVL UCBSL_TT CLASS(R5)-RO ; GET THE CLASS VECTOR TABLE ADDRESS 
187 5 MP @CLASS_POWERFAIL (RO) ; AND GOTO THE POWERFAIL CODE 
1BA 5 § 40$:  RSB 
$188 2 § ; ERROR DETECTED DURING INITIALIZATION 
say 
0188 038 YCSUNIT_ERROR: 
0188 453 BICW  #UCBSM_ONLINE ,UCBSW_STS(R5) ; UNIT NOT ON LINE 
ee 
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MAINTENANCE ROUTINES ~SEP-1984 04:17:34 [TTDRVR.BUGSRCJYCDRIVER.MAR; 1 . (1) 
01C0 7 -SBTTL MAINTENANCE ROUTINES 
01C0 Be 3++ 
pity a7? : YCSMAINT = MAINTENANCE FUNCTIONS 
01CO 541 ; FUNCTIONAL DESCRIPTION: 
01C0 24g ; THIS ROUTINE PERFORMS MAINTENANCE FUNCTIONS FOR THE DMF 
010 243 ; (LOOPBACK IS ONLY ALLOWED ON LINES 0 AND 1) 
01C0 545 : INPUTS: 
01C0 4546; 
0100 547: R5 = UBC ADDRESS 
pice 278 $ UCBSB_TT_MAINT = FUNCTION TO BE PERFORMED 
01C0 550 ; OUTPUTS: 
01c0 «= 4551s RO-R4 SCRATCH 
01C0 22¢ i-- 
01c0) = 555 
01C0 554 YCSMAINT: 
01 93 0100 555 BIT #10$M_LOOPa-7,- ; LOOPBACK FUNCTION 
012A 5 01C2 556 UCBSB_TT_MAINT(RS) 
OF 13 O1C5 557 BEQL 5$ : NO 
lg BO Oc? 338 MOVW #TTSM_DS_DTR!TTSM_DS_RTS,- ; SET REQUIRED MODEM LINES 
00000295"EF 16 O1CA 560 JSB YCSDS_SET ; SET THEM TO ALLOW LOOPBACK 
52 02 3C 0100 561 MOVZWi -#*X027R2 ; SPECIFY LOOPBACK CODE 
15 11 01D3 562 BRB 10$ 
0105 563 5$: 
02 93 0105 564 BITB §#I0$M_UNLOOP@-7,- ; RESET LOOPBACK FUNCTION 
012A C5 01D7 565 UCB$B_TT_MAINT(RS) 
42 13 O1DA 566 BEQL : NO 
1300 8F 80 01D¢ 267 MOVW #256*<TTSM_DS_DTR!TTSM_DS_RTS!*X01>,~; RESET REQUIRED MODEM LINES 
00000295°EF 16 O1F1 569 JSB YCSDS_SET ; SET THEM TO ALLOW LOOPBACK 
52 00 = «(o3¢ O17 370 i MOVZWL #*X007R2 ; SPECIFY UNLOOP CODE 
51 24 A5 DO OIEA 572 MOVL UCB$L_CRB(R5),R1 : GET THE CRB ADDRESS 
0B Al 45 BF 91 O1FE 573 CMPB =: #D T$_5M232, CRBSB_TT_TYPE(R1) : IS THIS A DMZ 
06 13 O12 57% BEQL 1 ; YES THEN MODEM CONTROL ON ALL UNIT 
54 45 O02 B1 O1FS§ 575 CMPW = #2, UCBSW_UNIT(RS) : ALLOWED ON THIS UNIT? 
20 15 O19 576 BLEQ }§6=s_-« S$ > NO 
O1FB 577 128: GETIND 1,R1 : GET INDIRECT FIELD 
02 06 §2 FO Oe0E 578 INSV —- R2, ADMFLCTSV_MAINT,#2,R1 ; SET MAINT FIELD 
! 
M6 AO 51 + B0 0213 579 MOVW = R16 (RO) : UPDATE 
50 01 9A 021 580 MOVZBL #1,R0 : INDICATE SUCCESS 
05 O21A 581 RSB 
0218 582 50S: 
50 ods 0218 SE CLRL RC 
S$ 9210 584 RSB 
O21E 9585 
O21E 586 158: : 
40 8F 93 O21E 587 BITB #i0$M_AUTXOF ENA3-7,- 
012A C5 66! 588 UCBSB_TT_MAINT(RS) ;AUTOXON ENABLED 
05 #13 :«0 34 589 BEQL 17$ : NO THEN MAYBE DISABLE 
20 «AB 0g 6 590 BISW #TTYSM_PC_XOFAVL.- 
0122 ¢5 0208 338 UCBSW_TT_PRTCTL(RS) ; SET THE BIT AVAILABLE 


<< 


012A 


00000295" 
52 


Oooo 
ay 
o—,, 
me 
2-7 
Ww 
— (om 
~ 
fim 
- w 


—AD OOMM-2-OO%M 

OWS VOTWwMUO 
AAPA OOAOAA OOOO OOOOIIMIUINW 
St to 4 A QDOODOOOOCOCOCOWOWOOOOODO 


ew eee fej elololelelelololelololeolo) 


SOODWNAMAEWN $0 OONAUES WN 0 OO NOAUES WHO VDONOUSE 


OOOCOCOSCOOCOCCOSCO 
AABPAAOAAAAOOD 
WROPONMONOPONONMoNoNnofny 


Async 


BITe 


BEQL 
BICW 


BITB 


BEQL 
MOVW 


JSB 
MOVZWL 
BRB 


BITB 


BEQL 
GETIND 
BICW 


MOV 
BRB 


BITB 


BIS 
MOVW 


MOVZBL 
RSB 


BEQL 
he 


1 
1 
a- 
5 


) 


#10$M_AUTXOF_D 
uCeSB_TT MAINT 


#TTYSM_PC_XOFAVL. = 
UCB$W_TT_PRTCTL«iA3) 


#10$M_LOOP_EXTa-7,- 
UCBSB_TT_MRINT (R55 


H<TTSH_DS_DTR!TTSM_DS_RTS!*x01>,4 


YC$OS_SET 
#*x00,R2 
10$ 


#IOSM_LINE_OFF@-7,- 
YCBSB_TT MALT (R55 
1h 


oR 
#<<DMFLCTSM_XMIT>!~ 
<DMFLCTSM_RTV>>,R1 

R1,6(RO) 
40$ 


#10$M_LINE_ON@-7,- 
UCBSB_TT MAINT (RS) 


1,R1 
#<<DMFLCTSM_XMIT>!- 
<DMFLCTSM_RTV>>,R1 
R1,6(RO) 


#1,R0 
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;AUTOXON disabled 
: mo then don't disable it 


; LOOPBACK FUNCTION 


NO 
; SET REQUIRED MODEM LINES 


SET THEM TO ALLOW LOOPBACK 
SPECIFY NC LOOPBACK CODE 


CHECK OTHER FUNCTIONS 
LINE OFF 


NO 
GET FIELD 
DISABLE TRANSMIT AND RECEIVE 


; UPDATE 


; LINE ON 


>; GET FIELD 
; ENABLE TRANSMIT AND RECEIVE 
; UPDATE 
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VOon ous OUTPUT MODEM CONTROL 2 =368=138? M1333: 30 TTDRVR.BUGSRCJYCORIVER. MAR; 1 ” iF 
0295 6 .SBTTL OUTPUT MODEM CONTROL 
932 6 : p++ 
0 93 : é ; YCSDS_SET = SET OUTPUT MODEM SIGNALS 
0 92 6 : FUNCTIONAL DESCRIPTION: 
0 93 638 ; THIS ROUTINE OUTPUTS THE OUTPUT MODEM SIGNALS FOR THE SPECIFIED UNIT 
0295 640 : INPUTS: 
0295 641; 
0295 648 ; P2 = LOW BYTE = SIGNALS TO ACTIVATE 
029 643 HIGH BYTE= SIGNALS TO DEACTIVATE 
0295 645 : RS = UCB ADDRESS 
0295 646; 
0295 647 : OUTPUTS: 
0295 648; 
0295 649: RO-R3 ARE USED. 
0295 650 :- 
0295 651 
0295 652 YC$pc_seT: 
0125 CS 52 88 0295 653 BISB R2,UCBSB_TT_DS_TX(RS) ; SET NEW OUTPUT SIGNALS 
52 FB ar 78 029A 654 ASHL #-8,R2,R2 : ACCESS SIGNALS TO RESET 
0125 (5 52 8A O29F 655 BICS R2,UCBSB_TT_DS_TX(RS) ; RESET THEM 

0204 656 GETIND 1,=(SP) 

Br 0 87 657 BICB3 #*x0E0,UCBSB_TT_DS_TX(R5).- ; OR IN OUTPUT MODEM SIGNALS 

AE 0 658 1(SP) 

BE 0 659 MO‘ W (SP)+,6(RO) ; OUTPUT UPDATED VALUE 
0 660 RSB 
0 661 
0 662 


<< 


BO 
18 
83 


9 
D 
1 
1 
1 
& 
9 
D 
1 
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5 
i 
2< 
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ms 


D 
R 
C 
¢ 
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C 
C 
C 
C 
C 
C 
C 
C 
C 
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C 
C 
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: -SBTTL RECEIVER INTERRUPT SERIVCE 
YCSINTINP = DMF RECE] ER READY INTERRUPTS 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE is ENTERED WHEN A its IS ee th the IN THE UNIT'S 
SILO O THE ASSOCIATED 


ASSED 
rf DR F_THE CLASS DRIVER RETURNS CHARACTERS(S) THEN NEW 
OUTPUT IT INITIATED (NORMALLY ECHO). 


< ACTER IS ERT RAC TED AND _IS P 


= ADDRESS OF IDB 
IMPLICIT INPUTS: 
RO,R1,R2,R3,R4,R5 ARE SAVED ON STACK. 


THE INTERRUPT IS DISMISSED WHEN THE SILO IS EMPTY. 


3 ; DMF INPUT INTERRUPTS 
: GET THE CSR ADDRESS 


a(SP)+,R4 
RS 
(R4) ,RO 


: GET THE CHARACTER FROM THE INTERFACE 


4(RO),R3 

100$ 
#<DMFRCVSM_PARERR>! - 
<DMFRCVSM -OVERRUN> | ~ 


<DMFRCVSM_FRAMER>! - 
<DMFRCVSM_DS_CHG>,R3 


508 
#-8,R3,R2 : GET T 


#*C<7>,R2 . 


R3,R3 3 
BSi_UCBLST(R4)(R21,R5 ; 
CBSL_TT_PUTNXT(RS) 

#°X4040,UCBSW_UNIT(RS), choy 


#3,6(89) 3 e 
A e 
tt e 


~w 
ww 


TTDRVR.BUGSRCJYCDRIVER.MAR; ead 


GET yy A ~ + lat 
GET THE CSR ADDRESS 


‘fet Ha CHARACTER, ERRORS AND LINE NUMBER 


ERRORS OR MODEM TRANSITION ? 


:YES,PROCESS THEM 
THE LINE NUMBER 


F 1 
- Port Driver for DMF Sayre -JAN-1985 17: 33:30 qin Macro v04-00 Page 54 
RECEIVER INTERRUPT SERIVC ~SEP=1934 04:17:34 CTTDRVR.BUGSRCJYCORIVER.MAR; 1 (1) 
F9 «13°=«0305~—s 71 BEQL 308 : NO CHARACTER 
0000036B'EF 16 07 18 J$B BURST_OUTPUT : START BURST 
Fl 11 D f p BRB $ 
; f : 50s: 
0 OF f 4 : PROCESS PARITY, FRAME OVERRUN ERROR OR MODEM TRANSITION 
53 FB BE 78 O30R 726 ; ASHL =. #8 ,R3,R2 ; GET LINE NUMBER 
J313 
FFFFFFFB BF CA , 14 727 BICL #*C<7>,R2 ; 
55 18 noes p09 6318 738 MOVL JDBSL_ UCBLST(R4)CR2].R5 ; GeT ucB ADDRESS 
a 059 729 BEQL 0$ IF EQL THEN NO ucB 
1953 OB €E0 y3 750 BBS #ORERCVSV DS_CHG,R3, 4300s MODEM T ANSI TION 
52 01146 C5) Os 0326 731 MOVL UCBSL_TT_CLASS(RS) Ger CLASS DISPATCH 
14 B2 16 0338 7 : JSB acLASS. TREADERROR RS) 3 SIGNAL ERROR 
AS 12 O3¢e 73 BNEQ ; CHRRACTER TO ECHO 
038 734 708: 
CE 11 0333 139 BRB 30$ 
SE 04 «660 (08 ; 037 100$: ADDL  #4,SP ; REMOVE IDB ADDRESS 
50 BE 7D O35 738 MOVG = (SP) +, RO > RESTORE REGISTERS 
52 BE) 07D SCO0338 = 739 mova (SP)+,R2 ; 
54 BE 7D 0338 740 mova (SP)+,R4 : 
02 O33 741 RE' 
O33F eee 200$: 
52 4040 ef A9 O33 74 BISW3 #*X4040,R2, (RO) ; SELECT MODEM INDIRECT REGISTER 
52 07 AO 9A 0345 744 MOVZBL 7(RO ; GET CURRENT RECEIVE MODEM SIGNALS 
01246 ¢5 452 «(90 «(0349 = 745 MOVB srpcése. TT_DS_RCV(RS) ; UPDATE CURRENT INPUT MODEM SIGNALS 
51 03 QA O34E 746 MOVZBL AGERE “DATASET,R1 : TRANSITION TYPE IS DATASET 
50 DD 0351 747 PUSHL : SAVE CSR ADDRESS 
54 0114 C05 DO 0353 748 MOVL UCBSL TT_CLASS(R5S).R4 , GET CLASS DISPATCH 
0C B46 «616 «0358 JSB @CLASS_DS_TRAN(R4) ; INVOKE TRANSITION ROUTINE 
50 8EDO 0358 POPL RO ; RESTORE CSR ADDRESS 
oF 31 O35E 30$ 
0361 
0361 
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YCDRIVER - Port Driver for DMF Async =JAN-1985 17:35:30 VAX/VMS Macro V04-00 Pa 55 
v04=002 START 1/0 ROUTINE . go sannt9 4 §0: 93:30 TTDRVR.BUGSRCJYCDRIVER.MAR; 1 * 
0 61 ? 5 Br .SBTTL START 1/0 ROUTINE 
8 ? 4 ; ; YCSSTARTIO = START 1/0 OERATION ON DMF 
8 } £23 ; FUNCTIONAL DESCRIPTION: 
0361 761 ; THIS ROUTINE IS ENTERED FROM THE DEVICE INDEPENDENT TERMINAL STARTIO 
0361 168 ; ROUTINE TO ENABLE OUTPUT INTERRUPTS ON AN IDLE DMF UNIT. 
bee 764 ; INPUTS: 
0361 765: 
0361 766 : R3 = CHARACTER AND CC = PLUS 
0361 767: ADDRESS AND CC = NEGATIVE 
0361 768: 
0361 769: RS = UCB ADDRESS 
0361 770; 
0361 771 : OUTPUTS: 
0361 17 : 
0361 773: RS = UCB ADDRESS 
0361 774 :=- 
0361 775 -ENABLE LSB 
0361 776 YCSSTARTIO:: ; START I/0 ON UNIT 
66 0361 777 BGEQ 90% : SINGLE CHARACTER 
50 24 AS DO 0363 778 MOVL UCBSL_CRB(R5),RO ; GET CRB OF UNIT 
50 2c B0 0367 79 MOVL  a@CRBSC_INTD+VECSL_1DB(ROS,RO; GET CSR 
0368 781 BURST_OUTPUT: 
52 0120 ¢5 3C 0368 782 MOVZWL UCB$W_TT_OUTLEN(RS),R2 ; GET LENGTH 
01 €1 0370 783 #TTY$7_pC NA,=- ; USE SILO IF DMA NOT ENABLED ON THIS LINE 
09 0122 ¢5 0372 784 UCBSW_TT_PRTCTL(RS) ,SILO. OUTPUT 
52 B1 0376 785 CMPW = s«R2, G*TTYSGwW_DMASIZE | LARGE ENOUGH FOR DMA 
00000000 ' GF 0378 
60 18 037D 786 BGEQ DMA_START ; YES SO DO DMA 
O37F 787 
037F 788 SILO_OUTPUT: 
= 4040 BF A9 O37 789 BISW3 #*X4040,UCBS$W_UNIT(R5),(RO); SELECT TRANSMIT SILO 
51 06 A0 9A 0386 790 MOV7BL 6(RO),R1 : GET SILO DEPTH 
20 51 C3 bene 44! SUBL3 R1,#32,R1 ; CONVERT TO NUMBER SLOIS AVAILABLE 
51 52 Bi O38E 79 CMP 3 R1 ; BURST LARGER THAN SILO? 
03 1B 0391 794 BLEQU 50$ ; 
52 51 9A 0393 195 ee MOVZBL R1,R2 ; SLOTS AVAILABLE 1S MAXIMUM 
53 0110 cS DO o 9% 79 MOVL  UCBSL_TT_OUTADR(RS).R3 , GET ADDRESS 
011¢ C5 32 CO 0398 798 ADDL R2,UCBSL“TT_OUTADR(RS) : UPDATE POINTER 
0120 ¢5 «5 Ae 0 A 799 SUBW Re, UCBSWTT“OUTLEN(RS) : AND COUNT 
071 A 00 BEQL ; ALL DONE, NO NEED FOR BURST 
0800 8F AB O3A7 801 BISW #TTYSM_TANK BURST ,~ : SIGNAL BURST ACTIVE 
0108 C5 AB 0¢ oa UCBSW_TT_HOCD(R5) 
08 52 £9 AE 4 BLBC ~=—_ R2, 708 ; EVEN TRANSFER 
06 AO : 9 5 MOVB = (R$) +, 6( RO) : OUTPUT ODD BYTE 
ee 3 $ DECL R t UPDATE COUNT 
OF 13 0 BEQL 80% > DONE 
0 9 08 708: 
52 FF &F 78 389 9 ASHL #-1,R2,R2 ; CONVERT TO WORD COUNT 


<= | 
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v04-002 START 1/2 ROUTINE “SEP=19384 04:17:54 (CTTDRVR.BUGSRCIYECDRIVER.MAR: 1 (1) 
52 038D 
O3BE 10 75$: 
06 AO «683 )~=—B0s«O038 11 MOVW (R3)+,6(RO) 
03¢ 6 DELAY ; TO RELEASE THE UNIBUS 
Fé 52'S : 1? SOBGTR R2,75$ ; LOOP TILL DONE 
05 cs 80$: RSB ; RETURN TO CALLER 
c9 13 90$: 
13 13 «03¢9 18 BEQL 100$ ; SKIP IF NONE 
CB 19 GETIND 0 ; SELECT OUTPUT SILO 
06 A0 53 90 DA 0 MOVB R3,6(RO) ; OUTPUT CHARACTER 
dE 1 100$: 
05 O3DE ¢ $B 
O3DF Hf - DISABLE LSB 
O3DF 824 


£4 
YCDRIVER river for DMF Async “JAN-1985 7:35:30 YAX/VMS Macro YO ? 
vO4~002 U : ~3EP=1986 Ou:t7:30 ET oRUR.BugSRCIVCoRIvER.MAR: so £1) 


mo 
un 


t f 
D TIN 
DF $ -SBTTL PORT DMA ROUTINES 
DF 8 > DMA_START - INITIATE DMA OUTPUT 
“44 0 ; FUNCTIONAL DESCRIPTION: 
O3DF : ; THESE ROUTINES ARE CALLED BY THE PORT INPUT INTERRUPT, OUTPUT 
3DF ; INTERRUPT, AND STARTIO TO INITIATE N NEW D AM OUTPUT. 
30 4 : THEY HANDLE gAtLOCAat 10N AND LOADING OF MAP REGISTERS 
DF 5 ; TO HANDLE DMA OUTPUT. MAP REGISTERS ARE ALLOCATED IN PAIRS 
O30F 6; TO ALLOW ourpur BURSTS UP TO 512 BYTES. TRANSFERS LARGER THAN 
0 DF 7 ; THAT ARE DONE IN SEGMENTS. IF INSUFFICIENT MAPS ARE AVAILABLE, 
DF 8 : THE TRANSFER IS Doig SILO MODE. 
O3pF «= 839: 
O3DF 840 * 
O30F . ¢ INPUTS: 
030Fr rX ; 
OF BS : RS = UCB ADDRESS 
O3DF 844 : 
O3DF 845 ; OUTPUTS: 
O3DF 846: EX 
O2DF 847: RS = UCB ADDRESS FU 
O3DF 848 ; 1D 
O3DF 849: RO PRESERVED 10 
O3DF 850 ; 1,R2,R3,R4 DESTROYED 10 
O3DF 85° :-- 1D 
O3DF 85¢ peal 10 
1000 8F AS O3DF 285 BSW aTTYSH TANK_DMA, = ; SHOW DMA MODE ACTIVE 10 
0108 C5 O3E3 854 w TT HOLD (RS) 10 
01 BA O3E6 855 BICB tatty TP AB ; RESET ANY OLD ABORT REQUESTS 10 
0130 ¢5 O38 896 UCBSB_ 1? "StareRs) 10 
Ht 628 3 CHECK IF UNIT HAS PERMANENT MAP REGISTERS 10 
>] 
03 €1 O3EB 860 BBC #TTYSV_PC_PRMMA ; SKIP IF NOT AUTHORIZED FOR PERM MAPS 10 
06 0122 ¢5 O3ED 861 UCBSu TT. Pricit (a5). 5$ 10 
04 €0 O3F1 86¢ BBS airy MAPAVL SKIP FORK IF MAPS ALLOCATED ALREADY 10 
49 0122 C5 O33 863 = uCBSwW_TT *PRICTLIRS), DMA _GONTINUE sa 
02 88 03F7 865 BISB sTTYSA, TP_ALLOC,- ; SHOW ALLOC FORK ACTIVE #0 
0130 ¢ 39 66 UCB$B_TP_STAT(R5) OR 
51 0114 65 pO O3FC 867 MOVL UCBSE vr CLASS(RS),R1 =; GET CLASS VECTOR ADDRESS OR 
1C B81 16 0401 868 JSB @CLASS_FORK(R1) ; FORK TO FIPL FOR MAP OR 
9404 869 : REGISTER ALLOCATION OR 
05 0404 0 RSB ; RETURN TO CALLER WITH PO 
0405 871 ; “INT LEFT ON TO INTERLOCK PO 
0405 ie + OUTPUT. FORK ROUTINE WILL PO 
0405 87 ; RESUME AT DMA_ALLOS. PO 
405 874 DMA_ALLOC: PO 
409 75 PO 
405 876 PO 
405 77 S$: PO 
53 02 9a 0405 28 MOVZBL #2,R3 ; REQUEST 2 MAP REGISTERS PO 
00000000'GF 16 ioe 7 JSB G* [OC SALOUBAMAPN Po 
4 : ei SETIPL UCB$B_DIPL(RS) : INTERLOCK TO DEVICE IPL P0 
10 AB 041 2 BISW  #TTYSM_PC_MAPAVL,- : SHOW MAP ALLOCATED PR 
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iver for DMF Async 
ROUTINES 
3 
¢ BICB 
§ BLBS 
$8 MOVL 
9 MOVL 
90 BICW 
91 
85 MOVZWL 
9 BRwW 
94 
95 20$: 
896 MOVL 
897 MOVL 
898 
899 
900 
901 DMA_CONTINUE: 
Ong BBS 
90 
904 
905 MOVL 
906 MOVZWL 
907 BNEQ 
908 2$: BRW 
909 4$: 
910 PUSHL 
911 
912 CMPL 
913 BLEQ 
914 MOVZWL 
915 
916 
917 5$: ADDL 
918 SUBW 
919 
920 TIMSET 
a 
358 
924 ; 
925; 
926 ; 
927 
928 PUSHR 
929 MOVL 
930 MOVL 
931 EXT?V 
a38 
9 MOVAL 
934 
935 BICL3 
934 ASHL 
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UCBSW_TT PRTCTL (RS) 

#TTYSA_TP A ; SHOW ALLOC FORK DONE 

UCBsB 1p statens) 

RO, 208 : SUCCESS 

ucBst CRB(R GET CRB OF UNIT 

acresc_ INTDSVECSL_ 1pB(RO5, 4 GET CSR 

#TTYSM” TANK : RESET DMA MODE 

UCBSW_TT_HOCD( 

UCBSW-TT~ OUTLENCRS) ,R2 RESTORE OUTPUT LENGTH 

SILO_OuTPuT USE SILO FOR OUTPUT 


#TTY$V_TP_ABORT 
uca$B_TP “STAT(RS), 2$ 


UCBS$L_TT_OUTADR(RS5) ,R3 
UCBsu TTZOUTLEN(RS) .R2 


DMA_DONE 
RO 
R2,#512 


5$ 
#512,R2 


R2,UCB$L_TT_OUTADR(R5) 
R2,UCBSW_TT_OUTLEN(RS) 


R2,R1,LOCKOUTPUT 


R3 - Praeee ADDRESS 
=: NGTH 
- bee 


#*A<R2 . 
UCBSL éR 


RB(R G 
RBSC_ INtbsvECSL ADP(ROS.R 
G,AVECSS_MAPR 


IVECEV~RAP RE 
UCBSL_TP_MAP(R5) R 

UBASL-MAPCR1)CROI RI 
#*x80000000,R3.R4 


#-9 RG RG 


_MAPREG(RO), 


GET CRB ADDRESS 
; SAVE MAP FIELD IN UCB 


; BRANCH IF DMA TO BE ABORTED 


; GET ADDRESS 4 Dis STRING 

; LENGTH OF 0 

; SKIP IF MORE "0 

; BRANCH IF TRANSFER IS DONE 

; SAVE INPUT VOLITAL REGISTER ‘'CSR*’ 
; NEXT BURST TOO LONG FOR MAPS? 


3; NO 


; UPDATE CHARACTER corte FOR NEXT TIME 
: UPDATE COUNT FOR NEXT TIME 


sRECOMPUTE TIMEOUT VALUE FOR THIS 
;PORTION OF THE DMA BURST 


T CRB ADDRESS 
; CONFIG REGISTER 


: GET STARTING MAP REGISTER 
: GET 1ST MAP REGISTER ADDRESS 


; CALC SVAPTE OF BUFFER 
; ISOLATE PAGE 


5 
( 


8 
1 


) 
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DMA_DEALLOC: 
MOVL 
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, ~eEpn 1882 bartF 84 TONS Beek HOt Ole mann eee 29, 


MOVL G*MMGSGL_SPTBASE ,R5 ; GETS SVAPTE OF BUFFER 


MOVAL $232 000) RG : INTO R4 
BICL 1FF,R3 ; COMPUTE BYTE OFFSET IN PAGE 


LOAD MAP REGISTERS 
RO = MAP REGISTER NUMB 
R1 = ADDRESS OF FIRST MAP REGISTER 
Re - BUFFER LENGTH 
R3 = BYTE OFFSET IN PAGE 
R4 = SVAPTE OF BUFFER 
MOVZBL #2,R2 
MOVL  (R4)+,R5 : GET CONTENTS OF NEXT PTE 
THIS CODE ASSUMES THAT DMA IS FROM NONPAGED POOL 
INSV —-#*X400,421,411,R5 : SET VALID BIT, DATA PATH 0 
MOVL RS, (R1)4 : LOAD INTO MAP REGISTER 
SOBGTR R2.10$ 
POPR #*M<R2,R5> ; RESTORE LENGTH,WRITE BUFFER, UCB 
INSV —— RO, #9, #9, R3 ; COMPUTE UNIBUS ADDRESS 
EXTZV #16,#2,R3,RO0 ; GET HIGH 2 UNIBUS ADDRESS BITS 
INSV = RO, #14, #2, R2 ; MERGE WITH BYTE COUNT 
GETIND 2 ; SELECT DMA INDIRECT REGISTERS 
MOVW = R3, 6 (RO) : LOAD ADDRESS (INDIRECT REGISTER 
: AUTO INCREMTS TO COUNT) 
MOVW —-R2, 6 (RO) > LOAD COUNT/ INIT TRANSFER 
POPL RO ; RESTORE CSR ADDRESS 
RSB : RETURN TO CALLER 


: FORK DISPATCHER. ISR, OR STARTIO 
; DMA COMPLETION 


BBS #TTYSV_C_PRMMAP, - SkIP FORK IF MAPS PERMANENT 
UCBSW_T1 PRTCTL(RS), DMA_ bos 
BISB yTTY YSA_TP DLLOC,- 0 SHOU DEALLOC FORK ACTIVE 
UCB$B_TP_STAT(RS5) 
MOVL UCBSL~TT~CLASS(R5).R1 =: GET CLASS VECTOR ADDRESS 
JSB ACLASS_FORK(R1) > SCHEDULE FORK TO FIPL FOR MAP 
; REGISTER DEACLOCA TION 
RSB : RETURN TO CALLER, FORK WILL RESUME 
> At DMA_DEALLOC 
UCBS$L_CRB(RS) ,RO : GET CRB ADDRESS 
MOVL UCBSL~TP_MAP(RS),- 
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“SEP=1984 04:1 


DMA_POST: 


3:30 AX/VMS Macro v04-00 


TTDRVR.BUGSRCIYCDRIVER.MAR; 


CRBSL_INTD+VECSW_MAPREG(RO) ; RESTORE MAP FIELD IN CRB 

BEQL $ : SKIP IF NO 

JSB G* LOCSRELMAPREG : RELEASE MAP REGISTERS 

SETIPL UCB$B_DIPL(RS) ; INTERLOCK TO DEVICE IPL 

BICw #TTYSM_PC _MAPAVL,- : SHOW MAP ALLOCATED 
UCB$W_TT PRTCTL(RS) 

BICB #TTYSA_TP DLLOC,- 3; SHOW DEALLOC FORK DONE 
UCB$B_TP_STAT(R5) 

BICB  #TTY$M_TP_ABORT.- ; RESET ABORT REQUEST 
UCB$B_TP_STAT(RS) 

BICW #TTYSA_TRNK DMA.- ; RESET DMA MODE 
UCBSW_TT_HOCD(R5) 


CALL GETNEXT TO CONTINUE PROCESSING 
BICB #UCBSM_TIM!UCBSM_INT,- ;CLEAR TIMEOUT AND INT EXPECTED 


UCBSW 
JSB @UCB$C_TT GETNXT(RS) ~~; 
BRW YCSSTARTIO : 
SAVIPL : 
PUSHAL 20$ : 
BBC #TTY$V_TP_ALLOC,- ; 

UCB$B_TP_STAT(R5),10$ 
BRW DMA_ACLOC ; 


BBC #TTY$V_TP_DLLOC,- 
ucB$B_TP_STAT(R5),20$ 

aRw DMA_DEALCOC 

ENBINT 


RSB 


GET NEXT BURST 
AND PROCEED 


; SAVE CURRENT IPL ON THE STACK 
; BUILD RETURN ADDRESS ON SiACK 
; SKIP IF NOT ALLOCATE FORK 


RESUME AT ALLOCATE CODE THREAD 
CHECK FOR DEALLOCATE 


RESTORE SAVED FORK IPL FROM STACK 
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VOon0U8 PORT ROUTINES STOP,RESUME.XON, XOFF =3p0= 138? 0:33:30 TTDRVR.BUGSRCJYCDRIVER.MAR; 1 - 1) 
571 10 § -SBTTL PORT ROUTINES STOP,RESUME,XON, XOFF 
aft 1885 i’ Yesxore SEND XOFF 
ea 18 1; YCSXON - SEN 
0571 10 § : YCSSTOP - STOP OUTPUT 
0571 10335 ; YCSABORT - ABORT CURRENT OUTPUT 
b3¢! 8 : ; YCSRESUME = RESUME STOPPED OUTPUT 
B37 18 § 3 FUNCTIONAL DESCRIPTION: 
0571 1938 3 THESE ROUTINES ARE USED BY THE THE TERMINAL CLASS DRIVER TO 
O31 1039 ; CONTROL OUTPUT ON THE PORT 
571 1040 ; 
0571 1041 ; INPUTS: 
0571 og 3 
0571 1043 ; RS = UCB ADDRESS 
0571 1044 ; 
0571 1045 ; OUTPUTS: 
0571 1046; 
0571 1047 ; R5 = UCB ADDRESS 
0571 1048 ;-- 
0571 1049 ; 
0571 1050 ; SCHEDULE XOFF OR XON TO BE SEND 
0571 1051; 
0571 1336 : INPUTS: 
0571 1053 ; 
Bott 1938 ; R3 - CONTAINS THE CHARACTER TO SEND AS FLOW CONTROL. 
0571 1056 YCSXOFF: 
0571 1057 YCS$XON: 
03 BB 0571 1058 PUSH #*M<RO,RI> 
0573 1059 GETIND 1, 
51 8000 oF A9 0386 1060 BISW3 #DMFLCTSM_PREMPT,R1,6(RO) ; PREMPT ANY CURRENT OUTPUT 
a 4060 af A9 0380 1061 BISW3 #*X4040,UCBSW_UNIT(RS), (RO) ; SELECT TRANSMIT SILO 
0 53 90 0594 1068 MOVB R3,6(RO) 3 OUTPUT CHARACTER 
03 BA 0598 106 POPR #°M<RO,R1> 
05 O59A 1064 RSB 
0598 1065 ; 
0598 1066 ; STOP PORT OUTPUT 
0598 1067 ; 
0598 1068 YCSSTOP: 
03 0398 1969 PUSHR #*M<RO,R1> 
03 BA 9D 1070 1¢cB #UCBSM_INT!UCBSM_TIM,- ; RESET TIMER AND OUTPUT ACTIVE 
64 AS OS9F 1071 UCB$W_STS(R5) 
Beat 1076 GETIND 1 : 
0122 ¢5)~ = 05 ft 0880 1074 BSC #TTYSV_PC_XOFAVL,UCBSW_TT_PRTCTL(R5),10$; AUTOXON XOFF AVAILABLE ON 
$28? 1075 : YES THEN IS 
0122 (5 = 06 £0 $986 1076 BBS #TTYSV_PC_XOFENA,UCBSW_TT_PRTCTL(R5S),20$; AUTOXON XOFF ENABLED 
06 AO 326(01—SsOAA 038¢ 1077 198: BICW2 #DMFLCTSM_XMIT,6(RO) ; RESET TRANSMIT ENABLE 
03 +«=BA B3c9 1079 POPR #*H<RO,R1> 
05 05C¢2 1080 RSB 
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vo4- i PORT ROUTINES STOP, RESUAE XON, XOFF “SEP=1984 04:17: 30 TTDRVR.BUGSRCJYCDRIVER.MAR; 1 - $4, 
o3¢ 1083 ; 
48 : gi ; ABORT ANY CURRENT PORT OUTPUT ACTIVITY 
Re i 4 YCSABORT: 
03 BB 65C3 1085 PUSHR #*M<RO,R1> 
0108 cS «0B-)sC«ES)s«O5C5 «10 $ BBCC #TTYSV_ TANK BURST, UCBSW_TT_HOLD(R5),=  ; RESET BURST ACTIVE 
0 OSCA 10 10$ 3 
93C8 1088 10$: 
5CB 1089 GETIND 1 
06 AO 46001) = AB_—s«*OSDA =Ss1090 BISW2 #<DMFLCTSM_XMIT>,6(RO) 3 SET XMIT 
09 64 AS 401 «ET «=O05DE «1097 BBC #UCBSV_INT;UCB$W.STS(R5),15$ ; SKIP IF NOT BUSY. 
96 AO 10 As OSE 1998 BISW2 #<DMFLOTSM FLUSHS,6(RO) 3; FLUSH OUTPUT 
0130 cS 01s«BB Oe? 1093 = BISB #TTYSM_TP_ABORT,UCBS$B_TP_STAT(RS) ; REQUEST DMA ABORT 
03 BA OSEC 1095 POPR #°M<RO RID 
05 OSEE 1096 RSB 
OSEF 1097 
OSEF 1098 ; 
Beer 198 ; RESUME PREVIOUSLY STOPPED PORT CUTPUT 
OSEF 1101 YCSRESUME: 
OF BB OSEF 110¢ PUSHR #*M<RO,R1,R2,R3> 
Soo Nige | SeTTND 
0122 ¢5) OOS FY 9600 1105 BBC WTTYSV_PC_XOFAVL ,UCBSW_TT_PRTCTL(R5),10$; AUTOXON XOFF AVAILABLE ON 
0606 1106 ;_NO THEN RESUME TRANSMITION 
0122 cS) (06 £0 9606 1107 BBS #TTYSV_PC_XOFENA,UCBSW_TT_PRTCTL(R5),20$; AUTOXON XOFF ENABLED 
060C 1108 ; YES THEN DON'T ENABLE THE 
06 AO 01 AB 060C 1109 10S: BISW2 #DMFLCTSM_XMIT,6(RO) : ENABLE TRAN NSMIT 
38 64 AS 01 «=6—€0 0610 1110 208: BBS #UCBSV_INT,UCB$W_STS(R5) ,40$ ; SKIP IF OUTPUT ON 
Oc €0 0615 1111 BBS #TTYSV-TANK DMA,= ; SPECIAL IF DBA ACTIVE 
35 0108 C5 0617 1118 UCBSW.TT_HOCD (RS) .50$ 
0168 C5) —s«OB g! 0618 111 BBC #TTYSO_TANK_BURST.UCBSW_TT_HOLD(R5),40$ ; NO BURST IN PROGRESS 
i 
0621 1114 : (RESET ANYWAY. WILL BE 
0621 1115 ; SET IF NEEDED BY BURST_OUT 
- 4060 af Ag 0621 1116 BISW3 #*X4040,UCB$W_UNIT(RS) , (RO) ; SELECT TRANSMIT SILO 
51 06 A0 9A 0628 1117 MOVZBL 6(RO),R1 ; GET SILO DEPTH 
b6eC 1118 TIMSET R1,R1,LOCKOUTPUT ; COMPUTE TIMEOUT 
64D 1119 ; SET INTERUPT EXPECTED 
0640 1130 
064D 1121 40S: 
OF BA 064D 119@ POPR #*M<RO,R1,R2,R3> 
05 064F 1g RSB 
690 i124 
65 1129 50S: ; 
- 4058 af Ag 630 1126 BISW3 #*X4058,UCBSW_UNIT(RS), (RO) ; GET CURRENT BYTE COUNT 
51 06 A0 3C 0657 1127 MOVZWL 6(RO),R1 
51 C000 8F AA 065B 1128 BIcw  #*x0cb00 : MASK OFF ADDRESS BITS 
0660 1129 TIMSET R1,R1 pote ourPUT > COMPUTE TIMEOUT AND 
06 1 1130 . ; SET INTERUPT EXPTECTEDD 
CA 11 0681 1131 BRB 40$ 
0683 1132 
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p68 1) ¢ ‘ -SBTTL OUTPUT INTERRUPT SERVICE 
bog 1} § 3 YCSINTOUT = DMF OUTPUT INTERRUPT SERVICE 
set i 3 3 FUNCTIONAL DESCRIPTION: 
et 1140 ; THIS ROUTINE IS ENTERED WHEN THE DMF FINDS A LINE ENABLED 
0683 1141 ; AND AN EMPTY UART. THE CORRESPONDING UCB IS FOUND AND 
0683 11¢8 3; ANY OUTSTANDING PORT 9UTP IS DONE. WHEN ALL OUTSTANDING PORT 
0683 1143 ; OUTPUT IS COMPLETED, THE CLASS DRIVER IS CALLED TO RETURN THE NEXT 
06 1144 ; CHARACTER OR STRING TO BE OUTPUT. IF NO MORE OUTPUT IS FOUND, THEN 
06 1145 ; THE LINE IS DISBALED. 
06 1146 ; 
et 1147 ; INPUTS: 
0683 1148 ; 
0683 1149; SP(00) = ADDRESS OF THE IDB 
0683 1150 ; 
0683 1151 ; IMPLICIT INPUTS: 
0683 1136 3 
0683 1153; RO,R1,R2,R3,R4,R5 SAVED ON THE STACK. 
0683 1154 ; 
0683 1155 ; OUTPUTS: 
0683 1156; 
0683 1157; THE INTERRUPT IS DISMISSED. 
0683 1158 ; 
0683 1159 ;-- 
0683 1160 YC_OUT_EXIT: ; EXIT OUTPUT INTERRUPT 
5E 04 CO 0683 1161 ADDL #4 ,SP ; REMOVE IDB ADDRESS 
50 8E 7D 0686 1188 MOVQ (SP)+,RO ; RESTORE REGISTERS 
52 8E 7D 0689 116 MOVQ (SP)+,R2 é 
54 SE 7D O68C 1164 MOVaQ (SP)+,R4 . 
O02 O68F 1165 REI ; DISMISS INTERRUPT 
0690 1166 | 
0690 1167 YCSINTOUT:: ; DMF OUTPUT INTERRUPT SERVICE 
0690 1168 
0690 1169 YC_OUT_LOOP: 
54 00 BE DO 0690 1170 MOVL a(SP),R4 ; GET THE IDB ADDRESS 
50 64 dO bco3 112) MOVL (R4),RO ; GET THE CSR ADDRESS 
0697 1198 ; GET THE LINE INFO FROM THE CSR 
0697 1174; 
0697 1175 
52 60 BO 0697 1176 MOV (RO) ,R2 ; GET THE CSR VALUE 
Ay 18 OQ69A 1177 BGEQ YC_OUT_EXIT ; NO MORE LINES 
52 FB 4 78 BeKs 1178 ASHL #-8,R2°R1 . GET THE LINE NUMBER 
FFFFFFF8 4 CA Beat 1179 BICL #*°C<7>,R1 : 
55 18 A441 09 06A8 1180 MOVL IDBSL_UCBLST(R4)[R1],R5 ; GET THE UCB ADDRESS 
el 1 O6AD 1 1 BEQi § YC_OUT_LOOP : IF EQL THEN DISMISS 
vers 1 ; CHECK TO MAKE SURE NO DATA IS PENDING BEFORE ASKING FOR MORE 
60 40%? of A9 oar 1185 BISWS3 #*X4040,UCB$W_UNIT(RS),(RO); GET THE SILO INDIRECT REGISTER 
06 AO) 95 Oop 1186 TSTB 6(RO) ; ANY DATA STILL IN THE SILO 
27 =©12 0689 1187 BNEQ 40% ; YES THEN LET IT COMPLETE 
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0688 1188 : 
0688 1189 : CHECK FOR BURST OR DMA ACTIVE ON LINE 
Oeee 119% | | 
08 91 0688 119¢ CMPB Os # TT TYSM_ TANK BURSTa=8, - ; ONLY BURST ACTIVE? 
0109 g po8 119 ucBsu TT_HOCD+1(R5 
c.g pocd 1138 BEQL YC_SICO : YES, CONTINUE SILO OUTPUT 
10 93 Nae: 1196 BITB #TTYSM_TANK_DMAa-8,- : DMA ACTIVE? 
0199 ¢5 06C4 119 UCBS$W_TT HOCD+1(R55 
A 12 O6¢7 1198 BNEQ YC_DMA_INTERRUPT : YES, PROCESS IT. 
06¢9 1507 ; NO PENDING DATA = LOOK FOR NEXT CHARACTER 
64 A5 03 BA 06¢9 08 ios: BICB #UCBSM_TIM!UCBSM_INT,UCBSW_STS(R5); CLEAR TIMEOUT AND EXPECTED 
06¢D 1206 | > CALL CLASS DRIVER FOR MORE OUTPUT 
010C DS «16 «06CD. «1306 * JSB aUCBS$L_TT GETNXT(RS) > GET THE NEXT CHARACTER 
18 19 06D1 1207 BLSS YC_START_BURST ; BURST SPECIFIED 
BB C13 b6D3 ! a BEQL YC~OuT LOOP 3 NONE 
0605 1210 ; : OUTPUT A CHARACTER TO THE DMF 
0605 1211 
0605 1212 bos: 
a 4040 ef rx) 060° 121 BISW3 #*X4040,UCB$W_UNIT(R5), (RO) ; SELECT OUTPUT SILO INDIRECT REGIST 
06 AO 53 90 O06DC 1214 MOVB ~—= R36 (RO) : OUTPUT CHARACTER 
AE 11 060 1215 BRB ¥C_OUT_LOOP 
06E2 1216 
F9S2 CF D6 O06E2 1217 40S: INCL  YCS$L_SIL_ERROR 
11 06€&6 1218 BRB yc_00T_LOoP 
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BURST_OUTPUT ; START OUTPUT SILO OR DMA 
YC_OUT_LOOP 


CONTINUE SILO OUTPUT 


#°xX4040,,UCBSW_UNIT(RS), (RO) + SELECT OUTPUT SILO INDIRECT REGIST 


6(RO),R1 GET SILO DEPTH 
R1,#35.R1 ; CONVERT TO NUMBER SLOTS AVAILABLE 


UCBSW_TT_OUTLEN(RS) .R2 : GET CURRENT LENGTH 
UCBSL-TT“OUTADR(RS).R& : GET CURRENT ADDRESS 
Ro, : BURST LARGER THAN SILO? 
R1,R2 + MAXIMUM 
R2,UCBSL_TT_OUTADR(RS) ; UPDATE POINTER 

R gUCBSWLTTIOUTLEN(RS) + AND COUNT 


6 NOT DONE 
#TTYSM_TANK_BURST,- RESET BURST ACTIVE 
UcBsu_TT HOLD (RS) 


ANY ROOM AT ALL 


80$ NO THEN EXIT 
R2,70$ : EVEN TRANSFER 
(R$)+,6(RO) : OUTPUT ODD BYTE 
R2 : UPDATE COUNT 
80$ ; DONE 
#-1,R2,R2 ; CONVERT TO WORD COUNT 
(R3)+,6(RO) 

; TO RELEASE THE UNIBUS 
R2,75$ > LOOP TILL DONE 
YC_OUT_LOOP 


YC_OuT 00° , BUILD RETURN ADDRESS ON STACK 
#DAFCSRSV_DMAERR,R2,30$ ; CHECK FOR A 


DMA 
YCSL_DMAXAT_ERROR > ERROR OCCURED INCREMENT COUNTS 
@TTYSM_TP_ALLOC!TTYSM_TP_DLLOC,- ;CHECK FOR FORKS ACTIVE 
y BSB_TP_STAT(RS) 7 AND IGNORE IF SO 


#TTYSV_TP_ABORT,UCBSB_7P_STAT(RS).-; ABORT ACTIVE DMA 
#*X4058,UCBSW_UNIT(RS),(RO); GET CURRENT BYTE COUNT 


6(RO) R1 
#°x0C600,R1 : MASK OFF ADDRESS BITS 


—- 
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06 13 O76C 1274 BEQL 208 ; DMA BYTE COUNT DONE. 
FBCA gt D4 og 1275 INCL if L_ERROR 
3 #11 «07 1 26 408 108 3 NO THEN CONTINUE 
774 «(107 S 
774 «1 8 208: - 
FcC9)—s«31 a 4, BRW DMA_CONTINUE ; OTHERWISE, CONTINUE THE DMA 
777 «(1281 ; If THIS INTERRUPT WAS THE RESULT A 
777 «1 ¢ ; OF AN ABORT, THIS WILL BE HANDLED A 
777 (1 ; BY DMA_CONTINUE A 
777 +1284 10%: a 
05 0777 1285 RSB A 
778 1286 A 
a 
C 
C 
C 
C 
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Drive 
ED, PARITY PARAME -SEP=19 TTDRVR.BUGSRCJYCDRIVER.MAR; 1 
a ! 83 -SBTTL SE* SPEED, PARITY PARAMETERS 
778 «#1 yee 
a : ; ; YCSSET_LINE = RESET SPEED, PARITY 
778 1293 : FUNCTIONAL DESCRIPTION: 
77 1294 ; 
778 12095 : INPUTS: 
as 1 3 : RS = UCB ADDRESS 
778 1298 : 
di 99 : OUTPUTS: 
778 1 0 : R4 USED 
778 1 ; t-- 
778 1 0 
778 1304 YCSSET_LINE: 
53 DD 0778 1305 PUSHL R 
54 34 A5 00 O77A 1 06 MOVL UCBSL_CRB(RS),R4 ; ADDRESS CRB 
54 OC BAP O77 130 MOVL.  @CRBSC_INTD+VECSL_IDB(R4).R4 |; GET THE CSR ADDRESS VIA CRB 
a 4048 af Ay 07 2 1308 BISW3 #*x40468,UCBSW_UNIT(RS), (R4) ; GET THE RIGHT INDIRECT REGISTER 
0122 cS. 05 F 07 ’ 1309 BBC #TTYSV_PC_XOFAVL ,UCBSW_TT_PRTCTL(RS),4$; AUTOXON XOFF AVAILABLE ON T U 
O78F 1310 ; YES THEN IS L! 
0122 (5 06 £0 O78F 1311 BBS #TTYSV_PC_XOFENA,UCBSW_TT_PRTCTL(RS),2$; AUTOXON XOFF ENABLED U. 
06 a6 02 AA 0795 1 12 BICW #OMFLCTSM_AUTOX,6(R4) ; NO THEN CLEAR THE AUTOXOFF ENABLE L! 
04 11 0799 131 BRB : AND C L! 
06 a6 «(02~—i«AB 0798 1 28: BISW  #OMFLCTSM_AUTOX.6(R4) : ENABLED THEN SET AUTOXOFF U! 
7E DS 079% 16 f CLRL Os = (SP) ; RESET A TEMPORARY LOCATION Ul 
Oral 1 18 : SET UP LINE SPEED AND PARITY L! 
7A1 1319; 
O7A1 1320 L! 
5 ¢S 95 O7A1 1321 TSTB ycBSu_TT_SPEED+1(RS) ; RECEIVE SPEED SPECIFIED? L! 
07 32 7A5 1 é BNEQ $ : ¥ L! 
4 ¢5 7a? 1 MOVB UCBSW_TT_SPEED(RS).- |; NO, SO USE TRANSMITTER SPEED L! 
5 ¢5 7AB 1306 UCBSW~TT"SPEED+1 (R5) L! 
3 83 rae 1325 S$: SUBB3 9 #1 ,UCB$W~TT_SPEED(R5) .R3 ; ADJUST TRANSMIT SPEED u 
FO 07B4 1326 INSV &3, #DMFLPRSV_TSPEED, #4, (SP) ; SET TRANSMIT SPEED wv 
} 83 739 1327 SUBB3 «#1, UCBS$W_TT_SPEED+1(R5) ,R3 ; ADJUST RECEIVER SPEED mw 
33 FO rar 1328 INSV —R3, #DMFLPRSV_RSPEED. #4, (SP) : SET RECEIVE SPEED w 
7C&4 1329 NE 
até : 3 NONSTANDARD PARITY/S1OP LAYOUT ws 
3 EE 7ce 1332 EXTV #UCBSV_TT_LEN,#2,UCBSB_TT_PARITY(RS) .R3 ; GET CHAR SIZE Ni 
3 FO 7CB 1333 INSV 3, #DMFLPRSV_SIZE.#2, (SP) > SET IT Pi 
05 EE 709 1334 EXTV #UCBSV_TT_PARTY,#2,UCB$B_TT_PARITY(RS) .R3 : GET PARITY/ODD 
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1335 INSV R3,#OMFLPRSV_PARITY,#2, (SP) 


gone Loren ODD, (SP) ; INVERT PARITY BIT 
#UCBSV_TT-STOP,#1,UCBSB_TT_PARITY(RS) ,R3 : GET STOP 


R3, #OMFLPRSV_STOP,#1, (SP) 


; End of driver 
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UCBSL_DUETIN 
UCBSL-TT~CLASS 


UCB$V"TT"STOP 
UCBSW_DEVBUF SIZ 


ECSL_UNITINIT 


vcs 
YCSCTRL_ERROR 
YCSDDT 


YCSOPT 
YC$DS_SET 
YCSENB 


Yc$i 


Y 
YC$L-SIL_ERROR 
YCSMAINT 
CSNULL 
YCSRESUME 
YCSSET_LINE 
YCSSTARTIO 
YC$STOP 


NTOUT 
YCSL_OMAXMT_ERROR 
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YCSUNIT_ERROR 1BB R 
YCSVEC 44 R 
YCSVECEND 7C R 
YCSXOFF 71 R 
YCSXON 571 R 
YC_DMA_INTERRUPT 743 R 
eB $085 
veustt0 O900see R 
YC"START_BURST 000006E8 R 
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Geeeeecoeaceeeecocon$ 


; Psect synopsis ! 


we eoe cee teem mon + 


PSECT name Allocation PSECT No. Attributes 
ABS. £888 0008 ( 0.) OO ¢ 0.) NOPIC USR CON ABS LCL NOSH 

SABSS 00000000 ( -») O71 ¢ 1.) NOPIC USR CON ABS LCL NOSH 

$$$105_PROLOGUE QOOOODES ¢ i on ¢ ( ¢°) NOPIC USR CON REL LCL NOSHR 

$$$115_DRIVER 000007FB ( 2043.) ( -) NOPIC USR CON REL LCL NOSHR 
poerecenwemen eee eronamneec at 
H Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization 105 $0300: 00 86 00:00:01.14 

Command processing 112 00:0 00. 7 Bp tBu: Re £8 

Pass 805 00:00:37.95 00:01:04.18 

Symbol table sort 0 Bb Sh ete 1 bs Se TS T4 

Pass 2 415 bs fs 8 0 0:00:14.86 

Symbol table output § 00:00: 3°88 00:00:00.44 

Psect synopsis output 00:00:00.0 00:00:00.03 

Cross-reference output : 8000; s5 58 as Bo 

Assembler run totals 144 0:00:52.26 00:91:29.9 


The working set Limit was 2550 pages. 

214887 bytes (420 pages) of virtual memory were used to buffer the intermediate sede. 

There were 160 pages of symbol table space allocated to hold 2949 non-local and 79 local symbols. 
1363 source Lines were read in Pass 1, produc tng 22 object records in Pass 2. 

72 pages of virtual memory were used to define 67 macros. 


Macro Library name 


_$255$DUA18:(SYS.OBJJLIB.MLB; 1 32 
$255$DUA18:CSYSLIBISTARLET.MLB; 3 11 
TOTALS (all Libraries) 43 


3430 GETS were required to define 43 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: YCORIVER/OBJ=OBJ$:YCDRIVER MSRC$: YCDRIVER/UPDATE=(BUGS: YCDRIVER) +EXECML$/LIB 
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R NOEXE NORD NOWRT NOVEC BYTE 
R EXE RD 
EXE RD 


WRT NOVEC BYTE 
WRT NOVEC BYTE 


EXE RD WRT NOVEC LONG 
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